home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / gfx / lise2.1 / lise / src / str / instr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-31  |  881 b   |  42 lines
  1. #include <stdio.h>
  2. main(argc,argv)
  3. int argc;
  4. char *argv[];
  5. {
  6. char c,s[256],z[256],e[256];
  7. int i,n;
  8.  
  9. if(argc!=3) { /* print help message */
  10.    printf("instr string substring\n");
  11.    printf("returns the position of substring in string or -1\n");
  12.    printf("\n(C) Rainer Kowallik");
  13. }
  14.  
  15.    strcpy(s,argv[1]);      /* source string */
  16.    strcpy(z,argv[2]);      /* sub string */
  17.    i=instr(z,s);
  18.    printf("%d\n",i);
  19.    exit(0);
  20. }
  21.  
  22. /* -------------------------------------------
  23.    return position of a substring in a string
  24.    ------------------------------------------- */
  25. instr(substr,str)
  26. char  str[],substr[];
  27. {  short i,p,flg,l1,l2;
  28.  
  29.    l1=strlen(str); l2=strlen(substr);
  30.    for(p=0; p < l1; p++) {
  31.       flg=0;
  32.       for(i=0; i < l2; i++) {
  33.          if(str[p+i] != substr[i]) {
  34.             flg = -1; break;
  35.          }
  36.       }
  37.       if(flg == 0) return(p);
  38.    }
  39.    return(-1);
  40. }
  41.  
  42.